Public Partial Class FrmListadePrecios
    Inherits System.Web.UI.Page

    Private tblTipounidad As CapaDeNegocios.nTipoUnidad = New CapaDeNegocios.nTipoUnidad
    Private TblListaDePrecios As CapaDeNegocios.nListaDePrecio = New CapaDeNegocios.nListaDePrecio()

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Session("Login") = "Anonimo" Then
            Response.Redirect("/")
        End If

        If Not Page.IsPostBack Then
            LLenar_Grid()
        End If
    End Sub
    Sub LLenar_Grid()
        GVListaDePrecios.DataSource = TblListaDePrecios.Buscar(0, New Date(), 0, 0, "activa", 0)
        GVListaDePrecios.DataBind()
        LimpiarCampos()
    End Sub

    Sub LimpiarCampos()
        DPFechaInicial.SelectedValue = DBNull.Value
        TxtValorKm.Text = ""
        TxtValorHs.Text = ""
        LlenarCboTipoUnidad()

    End Sub

    Sub LlenarCboTipoUnidad()
        CboTipoUnidad.DataSource = tblTipounidad.Buscar(0, "", 1)
        CboTipoUnidad.DataTextField = "Descripcion"
        CboTipoUnidad.DataValueField = "CodigoTunidad"
        CboTipoUnidad.DataBind()
    End Sub

    Protected Sub LnkGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LnkGuardar.Click
        Dim FechaInicial As New Date
        FechaInicial = DPFechaInicial.SelectedValue
        If HFListadePrecios.Value = "" Then
            TblListaDePrecios.Insertar(FechaInicial, TxtValorKm.Text, TxtValorHs.Text, CboEstado.SelectedValue, CboTipoUnidad.SelectedValue)
        Else
            TblListaDePrecios.Modificar(HFListadePrecios.Value, FechaInicial, TxtValorKm.Text, TxtValorHs.Text, CboEstado.SelectedValue, CboTipoUnidad.SelectedValue)
        End If
        LLenar_Grid()
    End Sub


    Protected Sub LnkEliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LnkEliminar.Click
        If HFListadePrecios.Value <> "" Then
            TblListaDePrecios.Eliminar(HFListadePrecios.Value)
            LLenar_Grid()
        End If
    End Sub


    Protected Sub LnkBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LnkBuscar.Click
        Dim FechaInicial As New Date
        FechaInicial = DPFechaInicial.SelectedValue
        GVListaDePrecios.DataSource = TblListaDePrecios.Buscar(HFListadePrecios.Value, FechaInicial, TxtValorKm.Text, TxtValorHs.Text, CboEstado.SelectedValue, CboTipoUnidad.SelectedValue)
        GVListaDePrecios.DataBind()

    End Sub

    Protected Sub GVListaDePrecios_RowCommand(ByVal sender As System.Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles GVListaDePrecios.RowCommand
        If e.CommandName = "Select" Then
            HFListadePrecios.Value = e.CommandSource.Parent.FindControl("HFCodigoLista").value
            DPFechaInicial.SelectedValue = e.CommandSource.Parent.Parent.FindControl("LblFechaInicial").text
            TxtValorKm.Text = e.CommandSource.Parent.Parent.FindControl("LblValorKM").text
            TxtValorHs.Text = e.CommandSource.Parent.Parent.FindControl("LblValorHs").text
            CboEstado.Text = e.CommandSource.Parent.Parent.FindControl("LblEstado").text
            CboEstado.SelectedValue = e.CommandSource.Parent.Parent.FindControl("LblEstado").text
            CboTipoUnidad.SelectedValue = e.CommandSource.Parent.Parent.FindControl("HFTipoUnidad").value

        End If
    End Sub

    Protected Sub LnkCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LnkCancelar.Click
        LLenar_Grid()
    End Sub

    Protected Sub LnkNuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LnkNuevo.Click
        LimpiarCampos()
        HFListadePrecios.Value = ""
    End Sub


End Class